home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 108 / Tiger_Disk_108_20xx_Tiger-Crew-Disk_de_Side_B.d64 / data keys [td] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  70 lines
  1. 59390 poke53280,0:poke53281,0:printchr$(142)"[147]";
  2. 59391 print"[146]       [153]   {$7f}[146]   [169]  {$7f}[146]       [146]  [169]  {$7f}"
  3. 59392 print"        [146]   [146]    [146]   [146]  [184]  [146] [184]   [146]   "
  4. 59393 print"        [146]   [146]    [146]   [146]     [146]     [146]   "
  5. 59394 print"        [146]   [146]       [146]     [146]        "
  6. 59395 print"        [146]   [146]    [146]   [146]     [146]     [146]   "
  7. 59396 print"          [146][169]    [146]   [146]     [146]     [146]   "
  8. 59397 print"   [158] [146] [169][146][169]    [146] {$7f}{$7f}[146]  [169][146][169] [169]  {$7f}[146]    [169]  {$7f}[146]    [146]   "
  9. 59398 print"    [169][146][169]   [146]    {$7f}{$7f}[169][146][169]   [146]  [185][146]     [146]  [185][146]    [146]   "
  10. 59399 print"    [146][169]     [146]    {$7f}{$7f}[146]   {$7f}  {$7f}[146]        {$7f}[146]       "
  11. 59400 print"    {$7f}[146]    [146]       [146]       [146]     [146]    [146]      "
  12. 59401 print"    [146]{$7f}{$7f}[146]   [146]       [146]    [146]   [146]     [146]    [146]      "
  13. 59402 print"    [146] {$7f}{$7f}[146]    [146]   [160] [146]   {$7f}  [146][169]    {$7f}   [146][169]      "
  14. 59403 print"         UDDDDDDDDDDDDDDDDDDDDDI"
  15. 59404 print"         B       [159]  [146]by  [146]        B"
  16. 59405 print"         B                     B"
  17. 59406 print"         B   [159] bruce nevins [146]    B"
  18. 59407 print"         JFFFFFFFFFFFFFFFFFFFFFK"
  19. 59408 print"        [150]press any key  to continue"
  20. 59409 poke198,0:wait198,1
  21. 59450 poke53280,0:poke53281,12:printchr$(142)"[147]";
  22. 59451 print"[146]      [151]use normal keys to enter the"
  23. 59452 print"          first three inputs"
  24. 59453 print"         UCCCIUCCCIUCCCIUCCCI"
  25. 59454 print"         B [155]7 [151]BB [155]8 [151]BB [155]9 [151]BB [155]- [151]B       [152][160] "
  26. 59455 print"         [151]B u BB i BB o BB p B"
  27. 59456 print"         JCCCKJCCCKJCCCKJCCCK"
  28. 59457 print"      UCCCIUCCCIUCCCIUCCCIUCCCI   [152] "
  29. 59458 print"      [151]B [155]0 [151]BB [155]4 [151]BB [155]5 [151]BB [155]6 [151]BB[155]del[151]B[152]   "
  30. 59459 print"      [151]B h BB j BB k BB l BB : B"
  31. 59460 print"      JCCCKJCCCKJCCCKJCCCKJCCCK"
  32. 59461 print"             UCCCIUCCCIUCCCIUCCCI"
  33. 59462 print"             B [155]1 [151]BB [155]2 [151]BB [155]3 [151]BB[155]ret[151]B"
  34. 59463 print"             B m BB ,[160]BB . BB / B"
  35. 59464 print"             JCCCKJCCCKJCCCKJCCCK"
  36. 59465 print"         UCCCCCCCCCCCCCCCCCCI"
  37. 59466 print"         B     [155], coma ,     [151]B"
  38. 59467 print"         B     space bar    B"
  39. 59468 print"         JCCCCCCCCCCCCCCCCCCK"
  40. 59469 print"    type 60027 return to remove last":poke198,0
  41. 59470 print"            line after data"
  42. 60000 input"[153]    startzeile ";sl:input"      endzeile ";el:nl=sl
  43. 60001 ifsl>60000orel>60002orel<slorsl<0orel<0thengosub60024:goto60000
  44. 60002 input" zeilenabstand ";in:ifin>elthengosub60024:goto60002
  45. 60003 print"[147]"nl;"data ";:i$=""
  46. 60004 geta$:ifa$=""thenprint"[175] [157][157]";:goto60004
  47. 60005 av=-(a$="m")-2*(a$=",")-3*(a$=".")-4*(a$="j")-5*(a$="k")-6*(a$="l")
  48. 60006 av=av-7*(a$="u")-8*(a$="i")-9*(a$="o"):ifa$="h"then a$="0"
  49. 60007 ifa$="p"then a$="-"
  50. 60008 ifa$=chr$(32)then a$=","
  51. 60009 ifa$=":"thena$=chr$(20)
  52. 60010 ifa$="/"thena$=chr$(13)
  53. 60011 if(a$>chr$(13)anda$<chr$(20))or(a$>chr$(20)anda$<",")thengosub60024:goto60004
  54. 60012 ifav>0then a$=chr$(48+av)
  55. 60013 if(a$>"9"anda$<"a")or(a$>"g"anda$<chr$(148))thengosub60024:goto60004
  56. 60014 iflen(i$)>70anda$<>chr$(13)anda$<>chr$(20)then60004
  57. 60015 ifa$=chr$(20) andlen(i$)=0then60004
  58. 60016 printa$;:ifa$=chr$(20)theni$=left$(i$,len(i$)-1):goto60004
  59. 60017 ifa$=chr$(13)then60020
  60. 60018 i$=i$+a$:goto60004
  61. 60019 rem use keyword abreveations for all keywords in the remaining lines
  62. 60020 print"nl=";nl;":in=";in;":el=";el:print"goto60022":poke631,19:poke632,17:poke633,17
  63. 60021 poke634,13:poke635,13:poke636,145:poke637,145:poke638,13:poke198,8:end
  64. 60022 nl=nl+in:ifnl>elthena=peek(43)+256*peek(44):goto60026
  65. 60023 goto60003
  66. 60024 poke54296,15:poke54277,45:poke54278,165:poke54276,33:poke54273,6
  67. 60025 poke54272,5:fort=1to200:next:poke54276,32:poke54273,0:poke54272,0:return
  68. 60026 deffndeek(a)=peek(a)+256*peek(a+1):iffndeek(a+2)<50000thena=fndeek(a):goto60026
  69. 60027 n=fndeek(a+2):print"[147]"n:print"a="a":g[207]60026":poke631,19:poke632,13:poke633,13:poke198,3
  70.